1 // $Id: Typed_SV_Message_Queue.cpp 80826 2008-03-04 14:51:23Z wotte $
 2 
 3 #ifndef ACE_TYPED_SV_MESSAGE_QUEUE_CPP
 4 #define ACE_TYPED_SV_MESSAGE_QUEUE_CPP
 5 
 6 #include "ace/Typed_SV_Message.h"
 7 
 8 #if !defined (ACE_LACKS_PRAGMA_ONCE)
 9 # pragma once
10 #endif /* ACE_LACKS_PRAGMA_ONCE */
11 
12 #include "ace/Typed_SV_Message_Queue.h"
13 #include "ace/Log_Msg.h"
14 
15 #if !defined (__ACE_INLINE__)
16 #include "ace/Typed_SV_Message_Queue.inl"
17 #endif /* __ACE_INLINE__ */
18 
19 ACE_BEGIN_VERSIONED_NAMESPACE_DECL
20 
21 ACE_ALLOC_HOOK_DEFINE(ACE_Typed_SV_Message_Queue)
22 
23 template <class T> void
24 ACE_Typed_SV_Message_Queue<T>::dump (void) const
25 {
26 #if defined (ACE_HAS_DUMP)
27   ACE_TRACE ("ACE_Typed_SV_Message_Queue<T>::dump");
28 #endif /* ACE_HAS_DUMP */
29 }
30 
31 template <class T>
32 ACE_Typed_SV_Message_Queue<T>::ACE_Typed_SV_Message_Queue (void)
33 {
34   ACE_TRACE ("ACE_Typed_SV_Message_Queue<T>::ACE_Typed_SV_Message_Queue");
35 }
36 
37 template <class T>
38 ACE_Typed_SV_Message_Queue<T>::ACE_Typed_SV_Message_Queue (key_t external_id,
39                                                            int create,
40                                                            int perms)
41 {
42   ACE_TRACE ("ACE_Typed_SV_Message_Queue<T>::ACE_Typed_SV_Message_Queue");
43   if (this->open (external_id, create, perms) == -1)
44     ACE_ERROR ((LM_ERROR,
45                 "ACE_Typed_SV_Message_Queue::ACE_Typed_SV_Message_Queue"));
46 }
47 
48 template <class T>
49 ACE_Typed_SV_Message_Queue<T>::~ACE_Typed_SV_Message_Queue (void)
50 {
51   ACE_TRACE ("ACE_Typed_SV_Message_Queue<T>::~ACE_Typed_SV_Message_Queue");
52 }
53 
54 ACE_END_VERSIONED_NAMESPACE_DECL
55 
56 #endif /* ACE_TYPED_SV_MESSAGE_QUEUE_CPP */

 1 /* $Header: /cvsroot/osrs/libtiff/libtiff/tif_error.c,v 1.1.1.1 1999/07/27 21:50:27 mike Exp $ */
 2 
 3 /*
 4  * Copyright (c) 1988-1997 Sam Leffler
 5  * Copyright (c) 1991-1997 Silicon Graphics, Inc.
 6  *
 7  * Permission to use, copy, modify, distribute, and sell this software and 
 8  * its documentation for any purpose is hereby granted without fee, provided
 9  * that (i) the above copyright notices and this permission notice appear in
10  * all copies of the software and related documentation, and (ii) the names of
11  * Sam Leffler and Silicon Graphics may not be used in any advertising or
12  * publicity relating to the software without the specific, prior written
13  * permission of Sam Leffler and Silicon Graphics.
14  * 
15  * THE SOFTWARE IS PROVIDED "AS-IS" AND WITHOUT WARRANTY OF ANY KIND, 
16  * EXPRESS, IMPLIED OR OTHERWISE, INCLUDING WITHOUT LIMITATION, ANY 
17  * WARRANTY OF MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE.  
18  * 
19  * IN NO EVENT SHALL SAM LEFFLER OR SILICON GRAPHICS BE LIABLE FOR
20  * ANY SPECIAL, INCIDENTAL, INDIRECT OR CONSEQUENTIAL DAMAGES OF ANY KIND,
21  * OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,
22  * WHETHER OR NOT ADVISED OF THE POSSIBILITY OF DAMAGE, AND ON ANY THEORY OF 
23  * LIABILITY, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE 
24  * OF THIS SOFTWARE.
25  */
26 
27 /*
28  * TIFF Library.
29  */
30 #include "tiffiop.h"
31 
32 TIFFErrorHandler
33 TIFFSetErrorHandler(TIFFErrorHandler handler)
34 {
35     TIFFErrorHandler prev = _TIFFerrorHandler;
36     _TIFFerrorHandler = handler;
37     return (prev);
38 }
39 
40 void
41 TIFFError(const char* module, const char* fmt, ...)
42 {
43     if (_TIFFerrorHandler) {
44         va_list ap;
45         va_start(ap, fmt);
46         (*_TIFFerrorHandler)(module, fmt, ap);
47         va_end(ap);
48     }
49 }

 1 using System;^M
 2 using System.Collections.Generic;^M
 3 using System.Xml.Serialization;^M
 4 using NHibernate.Mapping;^M
 5 using NHibernate.Util;^M
 6 ^M
 7 namespace NHibernate.Cfg.MappingSchema^M
 8 {^M
 9     [Serializable]^M
10     public abstract class AbstractDecoratable : IDecoratable^M
11     {^M
12         private static readonly IDictionary<string, MetaAttribute> EmptyMetaData = new CollectionHelper.EmptyMapClass<string, MetaAttribute>();^M
13 ^M
14         [NonSerialized]^M
15         [XmlIgnore]^M
16         private IDictionary<string, MetaAttribute> mappedMetaData;^M
17 ^M
18         [NonSerialized]^M
19         [XmlIgnore]^M
20         private IDictionary<string, MetaAttribute> inheritableMetaData;^M
21 ^M
22         [XmlIgnore]^M
23         public virtual IDictionary<string, MetaAttribute> MappedMetaData^M
24         {^M
25             get^M
26             {^M
27                 if (mappedMetaData == null)^M
28                 {^M
29                     CreateMappedMetadata(Metadatas);^M
30                 }^M
31                 return mappedMetaData;^M
32             }^M
33         }^M
34 ^M
35         [XmlIgnore]^M
36         public IDictionary<string, MetaAttribute> InheritableMetaData^M
37         {^M
38             get^M
39             {^M
40                 if (mappedMetaData == null)^M
41                 {^M
42                     CreateMappedMetadata(Metadatas);^M
43                 }^M
44                 return inheritableMetaData;^M
45             }^M
46         }^M
47 ^M
48         protected void CreateMappedMetadata(HbmMeta[] metadatas)^M
49         {^M
50             if (metadatas == null)^M
51             {^M
52                 mappedMetaData = EmptyMetaData;^M
53                 inheritableMetaData = EmptyMetaData;^M
54                 return;^M
55             }^M
56             mappedMetaData = new Dictionary<string, MetaAttribute>(10);^M
57             inheritableMetaData = new Dictionary<string, MetaAttribute>(10);^M
58 ^M
59             foreach (var hbmMeta in metadatas)^M
60             {^M
61                 MetaAttribute attribute;^M
62                 if (!mappedMetaData.TryGetValue(hbmMeta.attribute, out attribute))^M
63                 {^M
64                     attribute = new MetaAttribute(hbmMeta.attribute);^M
65                     mappedMetaData[hbmMeta.attribute] = attribute;^M
66                     if(hbmMeta.inherit)^M
67                     {^M
68                         inheritableMetaData[hbmMeta.attribute] = attribute;^M
69                     }^M
70                 }^M
71                 if (hbmMeta.Text != null)^M
72                 {^M
73                     attribute.AddValue(string.Concat(hbmMeta.Text));^M
74                 }^M
75             }^M
76         }^M
77 ^M
78         protected abstract HbmMeta[] Metadatas { get; }^M
79     }^M
80 }

 1 /* arch/arm/plat-s3c/include/plat/regs-usb-hsotg-phy.h
 2  *
 3  * Copyright 2008 Openmoko, Inc.
 4  * Copyright 2008 Simtec Electronics
 5  *      http://armlinux.simtec.co.uk/
 6  *      Ben Dooks <ben@simtec.co.uk>
 7  *
 8  * S3C - USB2.0 Highspeed/OtG device PHY registers
 9  *
10  * This program is free software; you can redistribute it and/or modify
11  * it under the terms of the GNU General Public License version 2 as
12  * published by the Free Software Foundation.
13 */
14 
15 /* Note, this is a separate header file as some of the clock framework
16  * needs to touch this if the clk_48m is used as the USB OHCI or other
17  * peripheral source.
18 */
19 
20 #ifndef __PLAT_S3C64XX_REGS_USB_HSOTG_PHY_H
21 #define __PLAT_S3C64XX_REGS_USB_HSOTG_PHY_H __FILE__
22 
23 /* S3C64XX_PA_USB_HSPHY */
24 
25 #define S3C_HSOTG_PHYREG(x) ((x) + S3C_VA_USB_HSPHY)
26 
27 #define S3C_PHYPWR              S3C_HSOTG_PHYREG(0x00)
28 #define SRC_PHYPWR_OTG_DISABLE          (1 << 4)
29 #define SRC_PHYPWR_ANALOG_POWERDOWN     (1 << 3)
30 #define SRC_PHYPWR_FORCE_SUSPEND        (1 << 1)
31 
32 #define S3C_PHYCLK              S3C_HSOTG_PHYREG(0x04)
33 #define S3C_PHYCLK_MODE_USB11           (1 << 6)
34 #define S3C_PHYCLK_EXT_OSC          (1 << 5)
35 #define S3C_PHYCLK_CLK_FORCE            (1 << 4)
36 #define S3C_PHYCLK_ID_PULL          (1 << 2)
37 #define S3C_PHYCLK_CLKSEL_MASK          (0x3 << 0)
38 #define S3C_PHYCLK_CLKSEL_SHIFT         (0)
39 #define S3C_PHYCLK_CLKSEL_48M           (0x0 << 0)
40 #define S3C_PHYCLK_CLKSEL_12M           (0x2 << 0)
41 #define S3C_PHYCLK_CLKSEL_24M           (0x3 << 0)
42 
43 #define S3C_RSTCON              S3C_HSOTG_PHYREG(0x08)
44 #define S3C_RSTCON_PHYCLK           (1 << 2)
45 #define S3C_RSTCON_HCLK             (1 << 2)
46 #define S3C_RSTCON_PHY              (1 << 0)
47 
48 #define S3C_PHYTUNE             S3C_HSOTG_PHYREG(0x20)
49 
50 #endif /* __PLAT_S3C64XX_REGS_USB_HSOTG_PHY_H */

 1 ;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-USER; Base: 10 -*-
 2 ;;; $Header: /usr/local/cvsrep/url-rewrite/packages.lisp,v 1.9 2007/01/01 23:55:43 edi Exp $
 3 
 4 ;;; Copyright (c) 2004-2010, Dr. Edmund Weitz. All rights reserved.
 5 
 6 ;;; Redistribution and use in source and binary forms, with or without
 7 ;;; modification, are permitted provided that the following conditions
 8 ;;; are met:
 9 
10 ;;;   * Redistributions of source code must retain the above copyright
11 ;;;     notice, this list of conditions and the following disclaimer.
12 
13 ;;;   * Redistributions in binary form must reproduce the above
14 ;;;     copyright notice, this list of conditions and the following
15 ;;;     disclaimer in the documentation and/or other materials
16 ;;;     provided with the distribution.
17 
18 ;;; THIS SOFTWARE IS PROVIDED BY THE AUTHOR 'AS IS' AND ANY EXPRESSED
19 ;;; OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
20 ;;; WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
21 ;;; ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY
22 ;;; DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
23 ;;; DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE
24 ;;; GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
25 ;;; INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
26 ;;; WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
27 ;;; NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
28 ;;; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
29 
30 (in-package :cl-user)
31 
32 (defpackage "URL-REWRITE"
33   (:use :cl)
34   (:export "*URL-REWRITE-TAGS*"
35            "*URL-REWRITE-FILL-TAGS*"
36            "STARTS-WITH-SCHEME-P"
37            "ADD-GET-PARAM-TO-URL"
38            "REWRITE-URLS"
39            "URL-ENCODE"))

 1 ;;; magit-simple-keys.el --- simple keybindings for Magit
 2 
 3 ;; Copyright (C) 2011  Ramkumar Ramachandra
 4 ;;
 5 ;; Magit is free software; you can redistribute it and/or modify it
 6 ;; under the terms of the GNU General Public License as published by
 7 ;; the Free Software Foundation; either version 3, or (at your option)
 8 ;; any later version.
 9 ;;
10 ;; Magit is distributed in the hope that it will be useful, but WITHOUT
11 ;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
12 ;; or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public
13 ;; License for more details.
14 ;;
15 ;; You should have received a copy of the GNU General Public License
16 ;; along with Magit.  If not, see <http://www.gnu.org/licenses/>.
17 
18 ;;; Commentary:
19 
20 ;; This plug-in overrides the keybindings in magit-key-mode with
21 ;; simpler keybindings; it does this by picking the most obviously
22 ;; used command in each key group
23 
24 ;;; Code:
25 
26 (require 'magit)
27 
28 (defvar magit-key-mode-mapping
29   '((logging magit-display-log)
30     (running magit-shell-command)
31     (fetching magit-fetch-current)
32     (pushing magit-push)
33     (pulling magit-pull)
34     (branching magit-checkout)
35     (tagging magit-tag)
36     (stashing magit-stash)
37     (merging magit-merge)
38     (submodule magit-submodule-update)))
39 
40 (defun magit-key-mode-generate (term mapping-function)
41   "Generate alias for the key-group term"
42   (eval
43    `(defalias ',(intern (concat "magit-key-mode-popup-" (symbol-name term)))
44     mapping-function)))
45 
46 ;; generate the aliases using the mapping in key-mode-mapping
47 (mapc (lambda (g)
48         (magit-key-mode-generate (car g) (cadr g)))
49       magit-key-mode-mapping)
50 
51 (provide 'magit-simple-keys)
52 ;;; magit-simple-keys.el ends here

 1 %% @author Marc Worrell <marc@worrell.nl>
 2 %% @copyright 2009 Marc Worrell
 3 %% @doc Create a button for opening a dialog where the user can select an object for a new edge.
 4 
 5 %% Copyright 2009 Marc Worrell
 6 %%
 7 %% Licensed under the Apache License, Version 2.0 (the "License");
 8 %% you may not use this file except in compliance with the License.
 9 %% You may obtain a copy of the License at
10 %% 
11 %%     http://www.apache.org/licenses/LICENSE-2.0
12 %% 
13 %% Unless required by applicable law or agreed to in writing, software
14 %% distributed under the License is distributed on an "AS IS" BASIS,
15 %% WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
16 %% See the License for the specific language governing permissions and
17 %% limitations under the License.
18 
19 -module(scomp_admin_dialog_link_add).
20 -behaviour(gen_scomp).
21 
22 -export([vary/2, render/3]).
23 
24 -include("zotonic.hrl").
25 
26 vary(_Params, _Context) -> nocache.
27 
28 render(Params, _Vars, Context) ->
29     Id        = z_ids:optid(proplists:get_value(id, Params)),
30     SubjectId = z_convert:to_integer(proplists:get_value(subject_id, Params)), 
31     Predicate = proplists:get_value(predicate, Params), 
32     ElementId = proplists:get_value(element_id, Params),
33     Anchor = z_tags:render_tag(
34                         <<"a">>,
35                         [
36                         {<<"id">>,    Id},
37                         {<<"href">>,  <<"javascript:void(0)">>},
38                         {<<"title">>, "add a connection"},
39                         {<<"class">>, "link-add"}
40                       ],
41                       "+ add a connection"),
42 
43     Html = [<<"<span class=\"add-connection\">">>, Anchor, <<"</span>">>],
44     Context1 = z_render:render(Html, Context),
45     Context2 = z_render:wire(
46                 Id, 
47                 {event,[
48                         {type, click}, 
49                         {action, {dialog_link, [{subject_id, SubjectId}, {predicate, Predicate}, {element_id, ElementId}]} }
50                 ]}, Context1),
51     {ok, Context2}.

 1 %%
 2 %% %CopyrightBegin%
 3 %%
 4 %% Copyright Ericsson AB 2003-2011. All Rights Reserved.
 5 %%
 6 %% The contents of this file are subject to the Erlang Public License,
 7 %% Version 1.1, (the "License"); you may not use this file except in
 8 %% compliance with the License. You should have received a copy of the
 9 %% Erlang Public License along with this software. If not, it can be
10 %% retrieved online at http://www.erlang.org/.
11 %%
12 %% Software distributed under the License is distributed on an "AS IS"
13 %% basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
14 %% the License for the specific language governing rights and limitations
15 %% under the License.
16 %%
17 %% %CopyrightEnd%
18 %%
19 
20 -define(attr_table,ct_attributes).
21 -define(conn_table,ct_connections).
22 -define(board_table,ct_boards).
23 -define(suite_table,ct_suite_data).
24 
25 -record(conn, {handle,
26          targetref,
27          address,
28          callback}).
29 
30 -record(testspec, {spec_dir,
31              nodes=[],
32        init=[],
33        label=[],
34        logdir=["."],
35        cover=[],
36        config=[],
37        userconfig=[],
38        event_handler=[],
39        ct_hooks=[],
40        include=[],
41        multiply_timetraps=[],
42        scale_timetraps=[],
43        alias=[],
44        tests=[],
45        merge_tests = true }).
46 
47 -record(cover, {app=none,
48     level=details,
49     excl_mods=[],
50     incl_mods=[],
51     cross=[],
52     src=[]}).
53 
54 -define(CT_EVMGR, ct_event).
55 -define(CT_EVMGR_REF, ct_event).
56 -define(CT_MEVMGR, ct_master_event).
57 -define(CT_MEVMGR_REF, ct_master_event).
58 
59 -define(missing_suites_info, "missing_suites.info").
60 -define(ct_config_txt, ct_config_plain).

 1 module Yi.UI.Vte (start) where
 2 
 3 import Prelude ()
 4 import Yi.Prelude
 5 
 6 import Graphics.UI.Gtk
 7 import Graphics.UI.Gtk.Vte.Vte
 8 import System.Environment
 9 import System.Environment.Executable
10 import System.Glib
11 
12 import Yi.Config
13 import Yi.Style
14 import qualified Yi.UI.Common as Common
15 
16 start :: UIBoot
17 start cfg ch outCh editor =
18     catchGError (initUI cfg ch outCh editor) (\(GError _dom _code msg) -> fail msg)
19 
20 initUI :: UIBoot
21 initUI cfg _ch _outCh _editor = do
22     discard unsafeInitGUIForThreadedRTS
23     setApplicationName "Yi"
24 
25     -- Setup window
26     win <- windowNew
27     discard $ win `onDestroy` mainQuit
28 
29     -- Setup vte
30     exe  <- getExecutablePath
31     term <- terminalNew
32     discard $ Graphics.UI.Gtk.on term childExited $ end False
33 
34     -- Set default colors
35     terminalSetColors term
36         (getBaseAttrColor foreground black cfg)
37         (getBaseAttrColor background brightwhite cfg)
38         (Color 0 0 0)
39         0
40 
41     -- Start running Yi
42     args <- getArgs
43     discard $ terminalForkCommand term
44         (Just exe) (Just $ exe : args ++ ["-fvty"]) Nothing Nothing False False False
45 
46     discard $ set win [ containerChild := term ]
47     widgetShowAll win
48 
49     return $ Common.dummyUI
50       { Common.main = main
51       , Common.end  = end
52       }
53 
54 main :: IO ()
55 main = mainGUI
56 
57 end :: Bool -> IO ()
58 end = const mainQuit
59 
60 getBaseAttrColor :: (Attributes -> Yi.Style.Color) -> Yi.Style.Color
61                  -> Config -> Graphics.UI.Gtk.Color
62 getBaseAttrColor p d cfg = mkCol $
63     case p $ baseAttributes $ configStyle $ configUI cfg of
64       Default -> d
65       c -> c
66 
67 mkCol :: Yi.Style.Color -> Graphics.UI.Gtk.Color
68 mkCol Default     = Color 0 0 0
69 mkCol (RGB x y z) = Color (fromIntegral x * 256)
70                           (fromIntegral y * 256)
71                           (fromIntegral z * 256)

 1 package org.rsbot.event.impl;
 2 
 3 import org.rsbot.bot.Bot;
 4 import org.rsbot.event.listeners.PaintListener;
 5 import org.rsbot.script.methods.MethodContext;
 6 import org.rsbot.script.methods.Web;
 7 import org.rsbot.script.wrappers.RSPlayer;
 8 import org.rsbot.script.wrappers.RSTile;
 9 
10 import java.awt.*;
11 import java.util.Iterator;
12 import java.util.Map;
13 
14 /**
15  * Draws the web.
16  *
17  * @author Timer
18  */
19 public class DrawWeb implements PaintListener {
20   private final MethodContext ctx;
21 
22   /**
23    * Calculates a point to the minimap.
24    *
25    * @param tile     The tile to calculate.
26    * @param baseTile Your baseTile.
27    * @return The point of the tile.
28    */
29   private Point tileToMap(final RSTile tile, final RSTile baseTile) {
30     final double minimapAngle = -1 * Math.toRadians(ctx.camera.getAngle());
31     final int x = (tile.getX() - baseTile.getX()) * 4 - 2;
32     final int y = (baseTile.getY() - tile.getY()) * 4 - 2;
33     return new Point((int) Math.round(x * Math.cos(minimapAngle) + y * Math.sin(minimapAngle) + 628), (int) Math.round(y * Math.cos(minimapAngle) - x * Math.sin(minimapAngle) + 87));
34   }
35 
36   public DrawWeb(final Bot bot) {
37     ctx = bot.getMethodContext();
38   }
39 
40   public void onRepaint(final Graphics render) {
41     if (!ctx.game.isLoggedIn()) {
42       return;
43     }
44     final RSPlayer player = ctx.players.getMyPlayer();
45     if (player == null) {
46       return;
47     }
48     final RSTile oT = player.getLocation();
49     final int plane = ctx.game.getPlane();
50     final Iterator<Map.Entry<RSTile, Integer>> rs = Web.rs_map.entrySet().iterator();
51     while (rs.hasNext()) {
52       final Map.Entry<RSTile, Integer> e = rs.next();
53       final RSTile tile = e.getKey();
54       final int key = e.getValue();
55       if (tile.getZ() == plane && ctx.calc.distanceBetween(tile, oT) < 105) {
56         render.setColor(RSTile.Questionable(key) ? Color.yellow : RSTile.Special(key) ? Color.cyan : Color.red);
57         final Point p = tileToMap(tile, oT);
58         render.drawLine(p.x, p.y, p.x, p.y);
59       }
60     }
61   }
62 }

 1 // Copyright Joyent, Inc. and other Node contributors.
 2 //
 3 // Permission is hereby granted, free of charge, to any person obtaining a
 4 // copy of this software and associated documentation files (the
 5 // "Software"), to deal in the Software without restriction, including
 6 // without limitation the rights to use, copy, modify, merge, publish,
 7 // distribute, sublicense, and/or sell copies of the Software, and to permit
 8 // persons to whom the Software is furnished to do so, subject to the
 9 // following conditions:
10 //
11 // The above copyright notice and this permission notice shall be included
12 // in all copies or substantial portions of the Software.
13 //
14 // THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
15 // OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
16 // MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN
17 // NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM,
18 // DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR
19 // OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE
20 // USE OR OTHER DEALINGS IN THE SOFTWARE.
21 
22 var common = require('../common');
23 var assert = require('assert');
24 var events = require('events');
25 
26 var e = new events.EventEmitter();
27 var times_hello_emited = 0;
28 
29 e.once('hello', function(a, b) {
30   times_hello_emited++;
31 });
32 
33 e.emit('hello', 'a', 'b');
34 e.emit('hello', 'a', 'b');
35 e.emit('hello', 'a', 'b');
36 e.emit('hello', 'a', 'b');
37 
38 var remove = function() {
39   assert.fail(1,0, 'once->foo should not be emitted', '!');
40 };
41 
42 e.once('foo', remove);
43 e.removeListener('foo', remove);
44 e.emit('foo');
45 
46 process.addListener('exit', function() {
47   assert.equal(1, times_hello_emited);
48 });
49 

 1 local T, C, L = unpack(select(2, ...)) -- Import: T - functions, constants, variables; C - config; L - locales
 2 
 3 --------------------------------------------------------------------
 4 -- player power (attackpower or power depending on what you have more of)
 5 --------------------------------------------------------------------
 6 
 7 if C["datatext"].power and C["datatext"].power > 0 then
 8   local Stat = CreateFrame("Frame")
 9   Stat:SetFrameStrata("BACKGROUND")
10   Stat:SetFrameLevel(3)
11 
12   local Text  = TukuiInfoLeft:CreateFontString(nil, "OVERLAY")
13   Text:SetFont(C.media.font, C["datatext"].fontsize)
14   T.PP(C["datatext"].power, Text)
15 
16   local int = 1
17 
18   local function Update(self, t)
19     int = int - t
20     local base, posBuff, negBuff = UnitAttackPower("player")
21     local effective = base + posBuff + negBuff
22     local Rbase, RposBuff, RnegBuff = UnitRangedAttackPower("player")
23     local Reffective = Rbase + RposBuff + RnegBuff
24 
25 
26     healpwr = GetSpellBonusHealing()
27 
28     Rattackpwr = Reffective
29     spellpwr2 = GetSpellBonusDamage(7)
30     attackpwr = effective
31 
32     if healpwr > spellpwr2 then
33       spellpwr = healpwr
34     else
35       spellpwr = spellpwr2
36     end
37 
38     if attackpwr > spellpwr and select(2, UnitClass("Player")) ~= "HUNTER" then
39       pwr = attackpwr
40       tp_pwr = L.datatext_playerap
41     elseif select(2, UnitClass("Player")) == "HUNTER" then
42       pwr = Reffective
43       tp_pwr = L.datatext_playerap
44     else
45       pwr = spellpwr
46       tp_pwr = L.datatext_playersp
47     end
48     if int < 0 then
49       Text:SetText(pwr.." ".. tp_pwr)      
50       int = 1
51     end
52   end
53 
54   Stat:SetScript("OnUpdate", Update)
55   Update(Stat, 10)
56 end